home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / WEBSITES / FORTRAN_FRIENDS / ORTEP.ZIP / Changes next >
Encoding:
Text File  |  1996-05-20  |  1.5 KB  |  50 lines
  1.            Changes to be made to the ORNL source of ORTEPIII
  2.        to get it to run with PGPLOT on the Acorn range of micros.
  3.                 K.M.Crennell   19 May 1996
  4.  
  5. 1. Change the dummy PGPLOT subroutines
  6.     INITSC, PENWSC, COLRSC, PENSC, ENDSC 
  7.    for the real ones towards the end of the source. 
  8.  
  9. 2. remove all the INTEGER *2
  10.  
  11. 3. separate the character variables from the others into their own COMMON 
  12.      a)blank COMMON
  13.           CHARACTER*4 TITLE,TITLE2
  14.           COMMON/UNC/TITLE(18),TITLE2(18)
  15.      b)COMMON /QUEUE/
  16.           CHARACTER*73 INQ,QUE,hque
  17.           COMMON /QUEUEC/INQ,QUE(96),hque(96)
  18.      c)COMMON/PARMS
  19.           CHARACTER*8 CHEM
  20.           COMMON /PARMSC/CHEM(505) 
  21.  
  22. 4. Routine SIMBOL has >19 continuation lines which have to be split into 4
  23.    data statements
  24.  
  25. 5. Routine DFLTS assumes filenames can have . in them as a file suffix
  26.      edit them out, also in routines UINPUT, F200, INITHP, INITPS 
  27.  
  28. 6. BACKSPACE not available, change to REWIND
  29.  
  30. 7. call to PGBEG changed to pgbeg(0,'?',1,1) from pgbeg(0,' ',1,1)
  31.  
  32. 8. added call to OSCLI in UINPUT to show user contents of the Data directory
  33.  
  34. 9. May need to change default screen sizes in routine CURSSC 
  35.    and add 3 lines 
  36.          CHARACTER *3 RES
  37. C ***  if no cursor on this device just return
  38.       CALL PGQINF('CURSOR',RES,LEN)
  39.       IF(RES.EQ.'NO ')RETURN
  40.  
  41. 10. add call to PGQINF to routine INITSC to set flag whether drawing on screen
  42.     or hardcopy
  43.       CALL PGQINF('TERMINAL',ANS)
  44. C                 set flag for drawing to screen
  45.       IF(ANS.EQ.'YES')NDRAW=1
  46.  
  47.          
  48.  
  49.  
  50.